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INTB.ODUC TION 

This list was originally compiled in norwegian by the 
author while working as a programmer at Storebrand Insurance 
Company, Oslo, in early 1963 before a good many changes had 
been made to the system and the author has no pretentions that 
this list is comiplete or correct. However experience has shown 
that it is very complete and quite correct enough to provide very 
time-saving and useful information while analyzing errors or 
studying the system logic. Labels which did not normally appear 
in the authors own programs were picked out from the macro listing 
for completeness and an attempt was made to ascertain the labels 
function from that list. 

The author would like to recommend as a companion tool 
to this paper, another paper by the same author 

"1401 Tape IOCS Advanced Notes (Tie 6503-0057)" 
where a more comiplete discussion of the functions of important 
fields and labels is attempted. 

I hope this list will stimulate readers to compile similar 
lists for other systems if these lists are not found in published 
IBM literature- if for no other reason than that it is an excellent 
way to learn about a system in considerable detail and thus be well 
armed for future system trouble shooting. 



Instructions for use of this list 

Labels ending with OON indicate DTF or Macroinstruction 
labels which can be any number 002, 003, 004 etc. depending on the 
position in the program relative to any other macros. 

Labels ending in 001 all belong to DIOCS routines because 
it is always the first macro. (DIOCS is macro 55555 in your library) 

Labels beginning with IOC are usually associated with DIOCS 
routines and are prinmarily labels external to the DIOCS. That is 
some DTF, OPEN or other IOCS macro, or user coding according 
to the manual (see lOCUXT in connection with exits for example) 
needs to refer to the label. 

The following abreviations will be used to indicate where the 
label definition is valid. 

PRI printer files (DTF's) 

PUN punch files 

REA reader files 

TAB DTF table 

IFX input fixed length files 

OFX output fixed length files 

OVU output variable unblocked files 

OVB output variable blocked files 

IVU input variable unblocked files 

Caution this list is relevant only for non- overlap programs 
compiled with a tape-oriented compiler. Tape programs compiled 
on a disk compiler (1311) have different labels. 



4 available upon request from author 

During translation the author has utilized the opportunity to make some 
corrections and to enlarge extensively upon the explanations. The author 
feels that the present document is much more reliable and much clearer than 
the original document, and is to be preferred. 
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LABELS BEGINNING WITH IOC 



ACT A little subroutine which puts an "N" (NOP) at the DTF 

file name address (first instruction in DTF routine) to 
open the file. 

ALT Alternate tape number. Exchanged with lOCTAP. As 

returned to the DTF table after alternate tape switching 
operations . 

ASC 1 pos. counter for testing a nicLX. of 10 erase tape tries. 

BLK Block count contents for file being handled by DIOCS. 

See IOCS manual for use 

BYP One pos. GMARK/WMARK used to skip possible tape mark 

after leader label. 

BYX Exit instruction from checkpoint record routine. 

CHE EOR condition sensed during an erase. Error routine. 

Halt nr. 3900 depress start to continue. 

CLE Part of tape error routine, where IRG generated GMARK 

in input area is rencioved in the case of a noise record. 
This routine restores noise record count and goes to a 
reread- 

CRD 5 position area for creation date (65001 etc. ) while a 

particiilar file is being worked on by DIOCS. 

DAC A little subroutine which closes a files DTF routine by 

mioving a "B" (branch around the DTF routine) on the first 
DTF instruction. 

DGM Beginning of dump tape error routine 

DRR Part of tape error (write) routine where error count is 

bumped and tested. 

DSW A switch used by the CLEAN routine so that it can exit 

from the comb. R/W routine after noise record test but be- 
fore error test. 

ECK Entrance to tape Read/Write subroutine from error routines 

for BYPASS option 

END Address of 1st available position eifter last IOCS routine in 

core. 

ENT Entrance for CLOSE, OPEN, EOR, FEORL, so that DTF table 

data is moved to lOCPSV area for DIOCS routine use. Exit 
from the routine is also initialized. 

EOF End of file address bucket during file processing 

EOR Entrance to end of reel processing 
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ERl Resets error count after 50 read attempts and a halt. 

Press start for new try. 

ER2 Resets error count after 30 write attempts and a halt. 

Press start for a new try. 

ER3 Resets error count cifter 10 erase attem.pts. Halt 3010. 

Press start for further attempts. 

ERC Halt when one tries to close a file which has not been 

opened. 

ERO 3 instructions which end the CLEAN routine with a last 

read tape instruction before proceeding to process, bypass, 
scan or dump options. 

ERR One pos. counter backet for testing of total read/write 

errors during a given Get/ Put etc. 

FES A WM switch. ON while FEORL routine is engaged by 

this macro. 



FSW A WM switch. ON while file serial number is blank in the 

file being considered. 

HSH 10 pos. bucket for hash total while file is being worked on 

by DIOCS routines. 

HSW A WM switch. ON when the file being handled by DIOCS 

has no hash total. 

IDT 10 pos. bucket for leader label ident. while corresponding 

file is being DIOCS handled. 

KBY A subroutine for sensing the ** CHKPT checkpoint records. 

LEN A Label which is an cilternative (or substitute for) lOCONR 

as a referense point when the CLEAN routine is not present. 
A branch to IOCLEN&4 (see lOCNRR routine) is a branch 
to DUMP tape, BYPASS or PROCESS routines. 

LOS A WM switch. ON when CLOSE routine has been activated. 

LOZ Entrance to CLOSE routine 

LVE Exit routine for OPEN, CLOSE, end of reel and forced end 

of reel routines. Its' primary objective is to return the updated 
file information (such as reel count) to the DTF table. It 
restores x3 and places the N or B on the DTF routine entrance 
in order to open or close the file when called for. 

MPR Routine in R/Write subroutine which tests for noise records 
(tape records of only 1 to 12 positions.) 

NPR B ooo exit from joint Read/Write subroutine after this is 

through (often a useful point to examine in core to find out 
the address of the routine which last called the read write 
subroutine. ) 

NRR Subroutine in tape error routine which subtract s one from 

error covmt and retrys. 

NT2 Accumulator bucket used exclusively by CLEAN routine for 

testing of total BSP and RT 

- 4 - 



ONR 



Entrance to CLEAN routine 



OPN 
OPS 
ORG 

PCK 

PKX 
PNX 



Entrance to OPEN routine 

A WM switch. ON (- WM) while OPEN routine is activated. 

A branch instruction (BEF ooo) in Read/Write tape routine 

which contains the EOR routine for a read file. Goes to DTF EOR 

routine. 

Address of a subroutine which converts 5 pos. addresses to 

3 pos. 1401 machine addresses. 

Exit from lOGPGK 5 to 3 pos. conversion routine. 

If RELEASE in DIOGS FEATURES is specified but PUNGH 
is not specified, then this "do nothing" routine is included 
so that IOCS and users can attempt to "release" the punch 
feed even though they are not aware this is not possible. 
If release and Punch are specified then this routine works 
as described in the IOCS manual- to "release" the piinched 
feed. 



PSV-4 



PSV 
QUT 

RAS 

RCL 
RGT 

RGY 
RDL 



Represents one of the codes on the DTF table which have 
been moved to the joint DIOGS routines for use. It indicates 
label type. 

1 is "standard labels, check all." 2 is non-standard. J is 
Standard and IDENT. A is "standard labels, not ident, not 
all. Blank indicates no labels. Caution- it is not always 
possible to simply patch in new codes here unless the DIOCS 
LABELDEF specification includes the possibility ("Mixed" 
includes all possibilities.) 

A 16 position area in the DIOCS routines; used to contain 
the lower (highest core address) 16 positions of the current 
DTF file table which is being treated. See lOCBLK RWD, 
ACT, TAP, TYP etc. as parts of this table. 

Label of a B ooo instruction where core storage inspection 
will reveal the last OPEN, CLOSE or FECSIL macro (possibly 
other portions of DIOCS routine). Can be very useful as an 
error analysis tool. 



Erase tape (because of write error) routine, 
counts; attempt rewrite. 



Reset error 



EOR test at end of combination R/W routine for write files goes 

to DTF EOR routine. 

10 position bucket for record count for a DTF while the DTF 
table is held in the DIOCS work areas. Used principally for 
comparing to trailer labels or writing on them. 

3 pos. area for retention cycle contents while DTF table is 
being handled by DIOCS. 

entrance to a routine which reads cards at the command of 
the RDLIN macro; decides if they are RDLIN cards and trans- 
fers contents of RDLIN cards to the DTF tabel named in the 
macro. 



RDX This subroutine is normally executed by the user or by IOCS 

routines to force card reading after a start read feed has been 
give. It is described in the IOCS manual. If release is speci- 
fied but reader is not specified in DIOCS then this routine is 
included but it is a "do nothing" subroutine. This is useful 
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RDX 
(cont. ) 

RED 

RER 

RKS 

RDW 

RSW 

RWD 

RWR 

RXR 

SAV 

SEQ 

SER 

SLB 



SPG 

SRE 

SRW 
SVl 

SV3 



since one doesn't have to evaluate whether or not a "reader 
DTF is actually present when including a B lOGRDX instruc- 
tion. See also lOCPNX. 

1st. inst. in tape error routine. It tests whether or not any 
errors have occured on the same record. 

read instruction and subroutine which reads records up to 
the record in question after the CLEAN attempt. 

Test for tape error. Used to hop over noise record test. 

Beginning of erase tape routine in write error routines. 

A WM switch which is on (WM) to indicate that a file has 
no record count. 



Rewind option code in DIOCS DTF -table work area. 
IOCS manual. 



See 



Entrance to a subroutine for reading and writing header 
and trailer labels. See lOGTDF. 

Exit from joint read/write subroutine with index register 
restore, used by error routine for process option. 

Save bucket for index registers. X 1 is saved in DTF routines 
here. 

3 pos. bucket for reel sequence while the particular files DTF 
table is being handled by the DIOCS routines. 

5 pos. bucket for file serial number while the particular 
files DTF table is being handled by the DIOCS routines. 

DA label for an 80 pos. (-I-GM) area used as tape label input/ 
output area. This area is a critical point since the IOCS 
routines read "old leader labels" in for all output files which 
are to have standard labels written on them. This is done in 
load mode, and if the old tape should happen to have a re- 
cord more than 80 pos. the DA GM/WM will not stop the l/O 
operation ruining the IOCS program portion just after this 
area and resulting in a "process" when the program tries to 
continue from the ruined portion. 

backspace instruction in "GLEAN" routine which backspace 
the tape error portion past the vaccuum cleaner portion of the 
tape unit. 

Return address from an EXIT user routine to IOCS. See 
manual. 

Entrance to general read/write routine 

1 pos. temporary bucket for alternate tape unit switching 
routine. It contains unit number of one of the units being switched. 

Index register 3 save bucket- esp. during close routine. 
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SV6 



SVA 



TAP 



TBR 



TCT 
TDE 
TDF 



6 pos. bucket used in the IOCS routine which checks retention 
cycle and creation date on the output tape (to be written on) 
against "todays date" IOCSV6-1 will contain the modulus 365 
sum of creation date + retention cycle. 

3 pos. bucket contains A-reg. contents from the move instruc- 
tion which transfers the DTF tabel to lOCPSV. This gives the 
location of the upper part of the DTF table (lowest core pos. 
not transferred). 

- tape unit which a file is using at the moment the file is being 
handled by the DIOCS routine. Used in connection with ALT 
TAPE routine swap. 

3 pos. bucket where location of the position aifter a group 
mark (evt. word mark) at the end of a tape record, is noted 
especially for the noise record test and wrong length record 
control. It is also used as the basis for removing Group 
Marks read in in noise and WLR records as well as for changing 
GM to Record Mark on Form 3 (V/U) records. 

error bucket used in dump tape routine. 

skip and blank tape error routine for dump tape. 

a table used by read/write routine and lOCRWR to indicate 
how labels are to be read or written, end of reel address etc; 
built up as described in IOCS manual for use of lOCSRW 
routine. 



TDH HALT 3666. Ten consecutive erases while dump tape write 

was attempted. 

TDY Pos. 199 to 195 contains "todays date" (for example 66001). 

Pos. 195 must contain the WM IOCS places there. It is the 
users (possibly operators) responsibility to place the date in 
195-199- Used for control of old header label and creation of 
new header label. 

TNT 6 pos. bucket for saving of X2 and X3. 

TRW label of the instruction in the read/write routine containing 
the l/O instruction itself. It is often used to pick up infor- 
mation about the last read/write operation performed- parti- 
culary in tape error routines. It is useful to investigate this 
instruction in a core clump. 

TSS Temporary 5 pos. bucket which contains the tape serial number 

while the label area (lOCSLB) is blanked before formation of a 
new output label. 

TTM Part of tape read error routine where the error count is bumped 
and tested. 

TYP Located in lOCPSV save area with a code for the current DTF being 

handled by DIOCS indicating file type as follows R = Tape INPUT, 
W ■ tape output, 1 » card reader, 2 » printer, 4 = punch. Picked 
up from DTF table when DIOCS routines are used. 
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UXT Label of a B ooo instruction where the ooo is filled out at object 

time with (among other things) the return address to the users 
program after GET, PUT, RDLIN instruction is executed. This 
can be especially useful during error analysis where, using the 
core print, you can often determine which user macro was last 
executed. 

WDP Beginning of write dump tape routine. 

XRl Index register one label = position 089- May be used by user to 

avoid defining own labels. 

XR2 Position 094. Index register 2 address. 

XR3 Position 099. Index register 3 address. 

XSV 8 position index register save area used by among others lOCENT 

routine. The registers are saved by a chaining operation and the 
register contents are saved in the extreme 3 (left and right) position. 
The middle two positions contain the contents of the 2 positions 
between the index regs. 

XTl XT2, XT3 etc. are labels of instructions which brcinch to users 

EXnADDR label if present for the file which DIOCS is currently 
processing. If no user exit is specified in the DTF then lOCSRE 
(re-entry) is branched to making it non-effective as an exit. 

ZON Table of zonebits for use in lOCPCK ( convert 5 to 3 position 

address) routine. 



Internal Labels (used only within one macro, DIOCS or DTF ) 

m, (lozenge) is the first character of each label in the following 
list list. It will be omitted in the list. 

NOTE: Labels ending in 001 are DIOCS labels. Others are used 
in DTF's or other IOCS Macros. 



OKOOl Routine which writes last block on tape. 

OLOOl Reference point used by printer etc. to hop over routines which 
pick up label dates from DTF table. 



OMOON IFX 



OFX 



Test for area parameter which might be contained in the 

caUing "GET" instruction or (if WORKAREA is specified) 

transfer of file data to its DTF specified WORKAREA. 

Test for workarea parameter contained in "PUT" cjuUing 

sequence or (if WORKAREA is specified) transfer without 

test from DTF WORKAREA specified area to the output area. 

OMOOl Punch extra card at CLOSE of a PUNCH file used to ensure that the 
last card punched is also checked. 



ONOOl EXIT initialization or restore to operand value lOCSRE, i. e. the 
DIOCS EXITS are "closed" until they are opened by a DTF with 
correspondning exits. 



OOOOl 
OPOOl 

OQOOl 
OROOl 
IJOOl 

IKOON 

IKOOl 
ILOOl 

IMOON 



IMOOl 
INOON 



Routine resets tape header read error counter after 10 errors. 

Test for % in DTF table (which indicates that the label infor- 
mation will be found in the immediately lower (core position- 
wise) part of core). This is necessary so that lable informa- 
tion may be transmitted to the DIOCS area lOCPSV. 

Handles exit addresses 

Handles exit addresses 

Beginning to the routine that tests to see if label information 
from the DTF table is to be transmitted to the DIOCS lOCPSV 
area; and its transmission, if necessary. 

Table required as a parameter list for any use of the combi- 
nation read/write tape routine (se IOCS manual for table 
construction details). 

Transmits reel sequence, retention cycle and creation date to 
common (to DTF's) DIOCS area. 

Record count and hash total if present are transmitted to the 
common DIOCS area from the upper part (lower core) of the 
DTF table of the file being handled. 

IVU routine which moves a record from the input area to the 
work area (the IRG produced GM is converted to record mark 
for this purpose). It increases hash & record count. 

OVU Routine which moves the workarea to the output area, 

sets the necessary GM/WM and calls the write tape 
routine. 

IFX Transfer from input area to the work area specified 

in the GET/PUT instruction. 

OFX Move record instruction. Moves work area to the 

file output area. This move is also used to copy 
padding records after the first padding record is 
formed. The IOCS does not place a record mark 
at the end of the first record it forms. It assumes 
there is one there. However, this assumption 
often fails when padding occurs before the first 
block has been written out and the DA has no record 
mark specification. This can also occur if there 
is no record mark at the assumed position based on 
the SIZEREC specification or the actual record 
(workarea) size. If this "error" occiirs during 
testing the simplest remedy is usually to increase 
the number of output cases to exceed the block factor. 

Similar to ILOOl above. 

OVU Routine which bumps hash and record totals and 

writes the record out on tape (calls the write routine) 

OFX This NOP instruction is changed at object time to 

an MRCM if the put instruction (or the padding 
routine - see IMOON for OFX) needs work area 
transfer to the output area. It is a sort of NOP/MRCM 
switch. (N or P.) 



INOOl 

IPOOl 
IQOOl 

IROOl 

2J001 
2KOON 

2K001 



Exit from the HjlLOOl routine when hash but no record count 
is to be taken. 

Beginning of the main routine for file handling. 

Branch to address for skipping of record count taking by the 
DIOCS routines when none so specified for the current DTF. 

Address used as reference point when a "no-hash-total-on- 
current -file" condition causes elemination of hash count 
checking. 



EXIT 6 return address after exit routine. 



OVB 



BOOO 



End of reel address for this DTF routine. 
tU IKOON table. 



See 



2LOON 



IVB 



OVB 



IVU 



OFX 



IFX 



Instruction containing the current DTF's own EOFADDR. 
See lOCRCL&IOCORC: Note these are only end of 
reel routines which return to the DTF end of reel 
routine which then goes to lOCEDR and then we come 
to the }lf 2K001 exit if it is end of file - not just reel. 
Note this is a B/NOP switch activated by the 
)ZlOL001 routine. 

Routine reads a new block, checks for possible 
checkpoint records (if specified), bumps block 
count, tests wrong length record and "zeroes" the 
X22Q counter to 004, that is, to the first data record. 

Routine which sets GM/WM bumps blocksize counts 
by 004 to take account of the 4 pos BCC field, bumps 
block count and initiates writing of the record on tape. 

As for IVB, however, no WLR checking and the IRG 
formed GM is changed to aito aid MRCM operations 
(there is no WM on the GM and if we put one there it 
would have to be cleared later. 

Routine which imitates writing of new tape record, 
bumps block count, resets relse switch. 

Routine which initiates reading of new tape record 
bumps block count. 



2L001 
2MOON 



Beginning of end-of-reel rewind routine. 

OVB Relse routine for this file. 

IVB Routine sets block count to 004 and returns control to 

user coding after the RELSE instruction. 

IVU Exit from DTF routine to instruction after users 

RELSE. Sort of a do-nothing instruction which must 
be there due to the system RELSE uses in the first 
3 instructions of the DTF routine. 
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ovu 



Same as IVU 



2M001 

2N001 

2O001 

2POON 

2P001 

2QOON 



2Q001 
2ROON 
2R001 
3JOON 
3J001 



OFX RELSE routine, ensures padding of output block if 

necessary. 

IFX RELSE routine resets 2 QOON and users DTF 

specified INDEXREG FOR BLOCKED RECORDS: 
A "do-nothing" routine for unblocked records. 

Routine which bumps reel sequence nr. if it is not yet end of 
file. 

Reference point used to hop over end of reel procedures at certain 
times such as OPEN or ON unit record files. 

Beginning of routine which clears block count and record/hash 
areas and imitates reading of a header label. 

Standard exit point from the DTF routine after a new data record 
has been made available. 

Exit point fronci the DIOCS rewind routine used as a reference 
point to skip over the rewind instruction if the current DTF has 
no need of it. 

OVB Machine address cotmter containing address of the 

next available data record space on its output area. 

IVB A counter which keeps account of the next available 

data record. 

OFX A 3 pos counter used to keep track of next available 

space for data records. Keeps track parallel with 
the INDEXREG if specified and is used to update the 
INDEXREG (or internal indexreg if INDEXREG not 
specified for blocked records) at each PUT. 

IFX As OFX but keeps track of next available input data 

record. 

Reference point after read-header-label routine so that the 
routine can be skipped if a DTF file specifies no labels. 

OFX Test field for the extreme end point of the padding 

operation. 

Reference point placed after header label "ALL" and "IDENT" 
checking so that this can be skipped if the DTF table specifies. 

OVU places a WM on an existing GM before writing the record. 
It is removed at Jll 3KOON. 

A general subroutine which tests the equal or unequal result of 
the several comparisons of DTF table information and their 
corresponding fields in the actual header label. If any one field 
is unequal we get an unnumbered heilt. Press start allows us 
to continue as if the whole label was accepted as being correct. 
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3KOON 



3K001 

3 LOON 

3L001 



3MOON 

3M001 
3N001 
3POON 

3P001 

3Q001 
3R001 

4J001 

4K001 
4L001 

4MOON 



OVB 



OVU 



routine which removes WM from GM after a write 
operation and resets the counters to indicate the 
first available space for new output data records at 
the beginning (+4) of the output area. 

removes WM over GM used for WT. SeeJ?'3JOON. 



Return address to main checking (label: DTF compare) routine 
if the comparison was equal. Seej33J001. 

OFX routine which zeroes INDEXREG and 2QOON before 

returning to user coding after (PUT) ntiacro. This 
is a "reset to new block, first data record" routine. 

General input trailer comparison test routine, analogous to 

3J001. Press start to "approve" the error if it halts here - 
but ask yourself why it is halting - are the count specifications 
in DTF/DIOCS in agreement with the actual label? Take a core 
printout at the halt and check the lOCSLB area against the counts 
in the upper part of the DTF table. The contents of j:f3M001 
instruction points to the compare that failed. 

OFX initialization routine for index register and MRCM 

instruction used as a reference point by the RELSE 
initialization so these instructions can be used jointly 
by RELSE and PUT. 

B ooo exit fromJ?3L001 subroutine for trailer checking. 

Halt 3027 allows user to mount his next tape reel. 



OFX 



loop address for padding loop. Padding is placed one 
character pr. loop for the first record. 



Beginnig of handling of new reel on output tape after a possible 
old header has been read, but before any checking or rewind 
takes place. The label is read by a joint routine ( 20ool) and 
this is the branch point after that read, for output files. 

a check point to check if the old header was a temporary header 
label (IBLNK - checks the B) so as to hop the retention cycle 
checking routine immediately following this point, if necessary. 

Beginning of routine which tests the retention cycle to see if the 
new reel can be written on. It is assumed at this point that 
pos 195-199 contains a date and that 195 contains the IOCS -set 
WM. 

Create new header label routine (from constants and DTF table 
data). 

Return point used by 4N001 subroutine. 

Marks the end of the standard header label routine. Non- standard 
files skip to this point. 



OFX 



Hash total add instruction for blocked files. 
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4M001 

4N001 
40001 

4P001 

4QOON 



A routine which handles those cases where the sum of the 



/^ f" «» a 4-1 ri-rt rlp4-tt t*1i 
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4Q001 
4R001 
5J001 

5K001 
5L001 

5MOON 



This is moduls 365 arithmetic. Thisineans that the year 
count is increased by one and the total number of days is 
reduced by 365 to compensate. 

Routine which takes tape serial number as the file serial 
number when this latter is blank. 

Routine which reads the old header label if the DIOCS is 
"output only" and the combination- read below V 20001 
does not exist. 

Routine which handles tape output end of reel situations. 
Referred to in OLOOl to choose between input and output 
EOR handling. 

OVB bucket containing tape record size thus far. 

IFX For blocked files this is a constant containing 

in the operand of a NOP instruction (never executed) 
a value equal to BLOCKSIZE MINUS SIZEREC. It 
is used to re-initialize the bucketX2QOON to its 
original value which is such that a new GET will 
force reading of a new block (used in RELSE routine). 
This constant is useful when files (FIXED BL>, INPUT) 
must be reinitialized in order to re-open them using 
either MLC ir4QOON, »2QOON (N = the DTF macro 
number) or a RELSE (filename) which does the 
same thing. 

Routine which writes the first Tape Mark on the output end of 
reel and if necessary continues with formation of the trailer 
label. 

Routine just before EXIT 2 if present and just before writing 
of the second tape mark used as a reference to skip coding if 
MIXED labels are specified. 

Reference point used during restoring of DTF table after the 
update in DIOCS routines, to skip over header label data update 
of data for standard labels. This is used when MIXED files 
are specified and a non-standard label file occurs. 

Reference point label used to skip updated record count restore- 
to-DTF-table when no record count is present. 

Address reference used by unlabelled DTF files being DIOCS 
handled to hop over all label data restoring to DTF table after 
the update for completely unlabelled files (when MIXED is 
specified). 

OFX Test for Group mark at end of output DA which 

indicates that the data record just PUT filled out 
the physical block and thus the block can be written. 
This test can "fail" when DA, SIZEREC or 
BLOCKSIZE specifications do not agree or if the GM 
is not actually present at the end of the DA for any 
reason. 
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5M001 Return point for the subroutines which activate (B-»filename) 

and deactivate (N-sfilename) files at OPEN/CLOSE time. 

5N001 Halt 3555 which indicates an incorrect (prog, error) return 

from exit 8. 

50OO1 Beginning of the part of the lOCLVE routine which restores 

the fixed portions of the DTF table just "updated" in DIOCS 
to its DTF. 



5QOON 
5Q001 



OVB 



Constant giving maximum block size (« BLOCKSIZE) 



Tape read error routine for old header label read errors. Must 
be used if TAPEUSE » OUTPUT since the normal read error 
routines are absent. 



6JOON OVB reference point used by the RELSE routine when 

VARBUILD is specified so that the following portion 
of coding may be shared between RELSE and PUT 
routines. 



7JOON TAB DTF 



name for record count bucket in DTF table. 



7J001 



7K001 



7LOON 



The part of RDLIN subroutine which reads and tests (for "RDLIN") 
the RDLIN cards. 



7KOON TAB DTF 



bucket for the hash total, located in upper DTF table. 



The part of the RDLIN subroutine which tests DTF table for the 
% sign which is a signal indicating where the RDLIN card data 
can be placed on the DTF table. The % sign "floats" according 
to the number of exits and all label data is in core immediately 
below (on the post list "above") this % sign. 

OVB Routine which bumps block count with the record 

count from the varbuild operand and notes the record 
count (from the VARBUILD operand) in a save area 
II8ROON. 



IVB Routine which moves data record to workareajnotes 

its length in a bucket and reduces the specified block 
count by this amount. 

IFX Routine which moves lOAREA data to a workarea. 



7L001 



rMOON 



7NOON 



The part of RDLIN subroutine which actually transfers the 
RDLIN card information to the DTF table. 

OVB A NOP/B switch used by set to B if RELSE has 

activated DTF. Used to avoid taking record, hash 
totals and updating record count when this should not 
be correct since RELSE does not itself put any data 
record, but it does note hash, record data from the 
previous put before writing out the block. 

OVB Used if V-ARBUILD is specified. It resets H7MOON 

switch to NOP (allowing future "record" totals and data 
accumulation) and returns 004 to the VARBUILD 
operand (indicating the next data record is the first in 
the next block). If the sequence is being used by the 
RELSE routine it continues at H2LOON (write the block) 
if not, a test is made to see if the block should be 
written or not (if it is filled). 
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8JOON 

8KOON 

8M001 
8N001 

8P001 

8R001 

8RCX)N 

9JOON 

9KOON 
9MOON 



9ROON 



OVB comes when neither VARBUILD or WORKAREA is 

specified (i.e. a PUT work area parameter must 
be given). It restores 10CXR3 (097 - 099) to its 
original Vcdue before the DTF routine was called. 
(The save instruction was SBR II8JOON + 6, OfX 3) 

Restore of X3 similar toJf8KOON used if also"'EXIT8ADDR is 
present just before the end of reel (lOCEDR) routine is called. 

EXIT initicdization routine reference point for input files. 

Lioop address fort(8 POOl routine where each position in the 
80 character ICX3SLBarea is blanked out one by one. 

Siibroutine which one by one clears data and wordmarks in the 
ICX;SL.B label l/O area. 

The routine which executes the RWU instruction for the UNLOAD 
option. 

OVB a save area (3 POS. ) for the record length given by 

the programmer to Uie VARBUILD area. 

OVB Wordntiark switch. NO WM indicates that the RELSE 

macro is using the DTF routine. WM indicates that 
PUT is using the routine. 

OVB Exit from the RELSE routine which restores XI and 

puts on the W7MOON switch so that the next PUT 
will not attempt to teike hash, record counts for the 
previously PUT record which were actually taken by 
the RELSE before the block was written out. 

OFX wordmark switch indicating if ON that the RELSE 

routine (which is also used by CLOSE) wants the 
DTF routines, normally used by PUT to move records 
from a work area, to "move" the padded record it has 
just created to the next data record to the right (thus 
copying the padded record), until the block is fvilly 
padded. This switch is turned off (NO WM) at the 
beginning of each PUT use of the DTF routine. 

OVB Halt 3999 program, error no VARBUILD or workarea 

(in DTF or PUT) specification. A recompile is 
necessary (or at least patching of the put Piacro out 
of line so that the area parameter is present). 
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